ocr: frmContact Properties 4e D.. DIM mbrMain AS Object DIM mnuapplication AS Ubject DIM mnuHelp AS Object Create a new menu bar object mbrMain = NEW MenuBar Create an About menu mnuapplication = NEW Menu mnuapplication.Label GApplication mnuapplication.appendilenultem "Exit", cCmdstop, NULL, "AQ") Create a Help menu mnuHelp = NEW Menu mnulelp.Label "Help" mnuielp.AppendMenultem "sContents", c(mdContentsHelp, NULL, NULL ) mnulelp.appendMenultem - "Using this Form", cCmdContexthelp, NULL, NULL ) mnulelp.appendMenultem - "About this Sample..." cumdAbout, NULL, NULL ) Append the new menus to the menu ...
